home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 60 / Digital_Talk_60_2003-04-27_Digital_Talk_de_Side_B.d64 / kahate's noter 6 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  135 lines
  1. 2 print"[147]":rem -khtnoter06 090303-
  2. 3 printtab(15)"khtnoter06[146]":print"[154] bitte warten -- dateien werden geladen"
  3. 12 ifpeek(56)=149then26
  4. 14 f=peek(187)+256*peek(188)
  5. 16 ifpeek(f)<>77andpeek(f+1)<>67andpeek(f+2)<>50thenload"mc1.obj",8,1
  6. 18 poke55,0:poke56,149:clr:load"mc2.obj",8,1
  7. 26 io=38912:cr=io+6:da=io+12:de=io+15:vl=io+24:tr=39888:ma=tr:fs=tr+3
  8. 68 pi=50960:wi=pi+3:pu=pi+6:ei=50176:qu=52240:ch=53039:gc=38144
  9. 104 sysfs:sysma:sysch:syspi:printchr$(14)chr$(8)
  10. 120 poke2,0:rem n$="commodore.cod,p,r"
  11. 122 n$="khtpr.cod,p,r":sysvl,n$,1792,1792+256
  12. 142 al$="qwertyuiopasdfghjklzxcvbnm[209][215][197][210][212][217][213][201][207][208][193][211][196][198][199][200][202][203][204][218][216][195][214][194][206][205]"
  13. 144 al$=al$+":;@[][186],./<>?=*^[192]1234567890+-\[169]!#$%&'() "+chr$(34)
  14. 152 e1$=chr$(13)+chr$(17)+chr$(145)+chr$(133)+chr$(134)+chr$(137)+chr$(138)
  15. 154 e2$=chr$(13)+chr$(137):fa=72:dimv$(fa):sz=1
  16. 172 a$(1)=" ([198]1)=[211]eite vor     ([198]5)=[204][207][193][196]-[196]atei"
  17. 174 a$(2)=" ([198]2)=[211]eite zur@ck  ([198]6)=[211][193][214][197]-[196]atei"
  18. 176 a$(3)=" ([198]7)=[196]rucken       ([198]8)=[211]chliessen"
  19. 180 b$(1)="[196]ateiname>"
  20. 184 c$(1)=" ([198]1)=[193]lles  ([198]2)=[211]chliessen"
  21. 186 c$(2)=" ([198]3)=[206]ur diese [211]eite"
  22. 232 print"[147]":poke53280,5:poke53281,9:poke646,7
  23. 234 printtab(7)"[200]allo, liebe [195]64er-freaks!"
  24. 235 printtab(7)"[129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  25. 236 print"[158][196]ieses ist ein kleines selbsterdachtes"
  26. 237 print"[206]oter-[208]rogramm, das sich verschiedener"
  27. 238 print"[205][195]-[210]outinen bedient, die in einem [194]uch"
  28. 240 print"von  [205]arkt&[212]echnik  zum [195]64/[195]128 unter"
  29. 242 print"dem [212]itel '[208][210][207][198][201]-[212][207][207][204][211]' ver:ffentlicht"
  30. 244 print"wurden."
  31. 250 print"[196]ieses  [208]rogramm ist also absolut kein"
  32. 252 print"[208]rofiprogramm<  es verwendet lediglich"
  33. 254 print"professionelle [193]ssembler-[210]outinen."
  34. 260 print"[214]orteil des [208]rogramms>"
  35. 262 print"[194]ei entsprechender [193]npassung des ange-"
  36. 263 print"schlossenen [196]ruckers kann der [212]ext der"
  37. 264 print"[206]achrichten leicht ausgedruckt werden.":gosub902
  38. 272 print"[147][158][208]rogramm-[193]nfang    mit    '[193][158]'"
  39. 274 print"[129]([201]ntro-[194]ildschirm)
  40. 275 [153]"sys(NULL)tart des (NULL)oters   mit    '(NULL)sys'"
  41. 276 [153]"for(valdit-(NULL)creen leer)
  42. 277 print"[158][218]um [212]ext/[205]enues    mit   '[198]1[158]'"
  43. 278 print"[215]enn n:tig zur@ck  mit   '[198]2[158]'"
  44. 280 r$="":getr$:ifr$=""then280
  45. 282 ifr$<>"a"andr$<>"s"andr$<>chr$(133)andr$<>chr$(137)then280
  46. 284 on-(r$="a")-2*(r$="s")goto232,302
  47. 286 on-(r$=chr$(133))-2*(r$=chr$(137))goto290,232
  48. 290 on-(pg%<>1)goto302:goto402
  49. 302 la$="":nr%=1:mo=0:i=1:as=0:pg%=1:e$=e1$:gosub362
  50. 308 fori=0tofa:v$(i)="":next:goto402
  51. 340 gosub380:sysei,0,i,40,v$(i+as),al$,e$,la$,nr%,mo,e%
  52. 350 ifla$=chr$(17)then370
  53. 351 ifla$=chr$(145)andi>1theni=i-1
  54. 352 ifla$=chr$(29)andi<18theni=i+1:nr%=1
  55. 353 ifla$=chr$(157)andi>1theni=i-1:nr%=40
  56. 354 ifla$=chr$(133)thengosub362:goto510
  57. 355 ifla$=chr$(134)theni=18:goto340
  58. 357 ifla$=chr$(137)thengosub362:goto376
  59. 358 ifla$=chr$(138)theni=1:goto340
  60. 360 ifla$=chr$(13)then370
  61. 361 goto340
  62. 362 l1$=la$:n1%=nr%:i1=i:return
  63. 370 ifi>17andas>53then374
  64. 372 i=i+1
  65. 373 ifi>18andas<54thenas=as+18:i1=1:goto402
  66. 374 nr%=1:goto340
  67. 376 as=0:i1=1:nr%=1:goto272
  68. 380 z1$=str$(i):ifval(z1$)>9then384
  69. 382 z1$=" "+z1$
  70. 384 z$=mid$(z1$,2)
  71. 386 sys cr,36,0:print"[155]"z$"[158]":return
  72. 390 sz=int(as/18+1):s1$=str$(sz):s$=mid$(s1$,2)
  73. 396 syscr,28,0:print"[155]"s$"[158]":return
  74. 402 gosub914:syscr,0,1:j=1+as
  75. 412 fori=jtoj+17:k=len(v$(i-1)):ifk<40then416
  76. 414 print"[145]";
  77. 416 printv$(i):next
  78. 420 la$=l1$:nr%=n1%:e$=e1$:i=i1:goto340
  79. 442 syspu,9,19,29,3,0:printchr$(18);:syswi,9,19,29,3,b$(1)
  80. 450 v$="":e$=e2$:la$="":nr%=0:sysei,20,20,16,v$,al$,e$,la$,nr%,1,e$
  81. 456 syspu,9,19,29,3,1:syspu,1,19,38,5,1
  82. 460 printchr$(146)chr$(145):syscr,9,20:return
  83. 472 syspu,7,19,31,4,0:printchr$(18);:syswi,7,19,31,4,c$(1)
  84. 480 r4%=0:r$="":getr$:ifr$=""then480
  85. 482 ifr$=chr$(133)thenr4%=1:goto486
  86. 483 ifr$=chr$(134)thenr4%=2:goto486
  87. 484 ifr$=chr$(137)thenr4%=3:goto486
  88. 485 goto480
  89. 486 syspu,7,19,31,4,1:syspu,1,19,38,5,1:printchr$(146)chr$(145):goto702
  90. 510 syspu,1,19,38,5,0:printchr$(18);:syswi,1,19,38,5,a$(1)
  91. 530 r$="":getr$:ifr$=""then530
  92. 533 ifr$=chr$(133)thenr%=1:goto550
  93. 534 ifr$=chr$(134)thenr%=7:goto550
  94. 535 ifr$=chr$(135)thenr%=4:goto552
  95. 536 ifr$=chr$(136)thenr%=3:goto554
  96. 537 ifr$=chr$(137)thenr%=2:goto550
  97. 538 ifr$=chr$(138)thenr%=8:goto550
  98. 539 ifr$=chr$(139)thenr%=5:goto552
  99. 540 ifr$=chr$(140)thenr%=6:goto550
  100. 544 goto530
  101. 550 sys pu,1,19,38,5,1
  102. 552 printchr$(146);
  103. 554 onr%goto560,570,472,622,602,402,580,590
  104. 560 ifas<54thenas=as+18:goto402
  105. 562 goto340
  106. 570 ifas>17thenas=as-18:goto402
  107. 572 goto340
  108. 580 i=18:goto340
  109. 590 i=1:goto340
  110. 602 gosub442:ifla$=chr$(137)then402
  111. 604 print"[211][193][214][197]> "v$:open1,8,15,"s:"+v$:close1:v$=v$+",s,w"
  112. 610 open2,8,2,v$:sysda,2,72,v$(1):close2:goto402
  113. 622 gosub442:ifla$=chr$(137)then402
  114. 624 print"[204][207][193][196]> "v$:v$=v$+",s,r"
  115. 630 open2,8,2,v$:sysde,2,72,v$(1):close2:goto402
  116. 702 close1:close4:close5:close7:open1,4,10:print#1:close1
  117. 714 lr$=chr$(16)+chr$(49)+chr$(48)
  118. 716 open4,4:open5,4,6:open7,4,7:print#5,chr$(30)
  119. 722 ifr4%=1then742
  120. 724 ifr4%=2then732
  121. 726 ifr4%=3then340
  122. 732 p0=as+1:pz=p0+17:goto744
  123. 742 p0=1:pz=72
  124. 744 forp=p0topz:qp$=v$(p)
  125. 746 print#7,lr$;qp$:qp$="":next
  126. 752 print#5,chr$(36):print#4:print#7
  127. 756 close4:close5:close7:goto340
  128. 902 syscr,12,24:print"[155][215]eiter mit [212]aste[145][145][145]"
  129. 904 r$="":getr$:ifr$=""then904
  130. 906 return
  131. 914 print"[147][155][192][192] [197]ditor-[194]ildschirm [192][192][211]eite [192][192][218]eile  [192][192]":gosub390
  132. 917 syscr,0,19:print"[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  133. 918 printtab(6)"[198]1 = [205]enue     [198]2 = zur@ck"
  134. 919 printtab(6)"[198]3 = [218]eile 18  [198]4 = [218]eile 1[158]":return
  135.